home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level1 / FunctionalSurf1.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  402 b   |  17 lines
  1. ReadArchive "defshaders.vs"
  2.  
  3. static grid = 5
  4. static thickness = 0.15
  5.  
  6. Declare wireframe = (|fmod(Po[X]*grid, 1)| < thickness ? TRUE :
  7.                     (|fmod(Po[Y]*grid, 1)| < thickness ? TRUE : FALSE))
  8.  
  9. Declare WF = Shader [ FunctionalSurface [
  10.  Color '.96, .8, .69'*wireframe
  11.  Kd 0.85
  12.  Ks(0.25,'1,1,1'*wireframe)
  13.  Kt (1.0-wireframe, 1.0, '1,1,1')
  14.  Kr 0.1
  15.  BlinnSpecularBRDF 10 ]
  16. ]
  17.